home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t3.d64 / load'screen.l < prev    next >
Text File  |  2007-02-28  |  1KB  |  59 lines
  1. 9000 // LOAD GRAPHICS SCREEN FROM DISK
  2. 9010 // (C)1984  W. LOUIE  05/27/84
  3. 9020 //
  4. 9030 // WALLACE LOUIE
  5. 9040 // 3407  AVENUE 'S'
  6. 9050 // BROOKLYN, N.Y. 11234
  7. 9060 //
  8. 9070 //
  9. 9080 PROC LOAD'GRAPHICS'SCREEN(FILENAME$) CLOSED
  10. 9090 DIM NAME$ OF 20
  11. 9100 NAME$:=FILENAME$+".HRG"
  12. 9110 SETGRAPHIC 0
  13. 9120 FULLSCREEN 
  14. 9130 HIDETURTLE 
  15. 9140 CLEAR 
  16. 9150 FILL 0,0
  17. 9160 OBJLOAD(NAME$,8)
  18. 9170 ENDPROC LOAD'GRAPHICS'SCREEN
  19. 9180 //
  20. 9190 //
  21. 9200 PROC OBJLOAD(FILENAME$,DEVICE) CLOSED
  22. 9210 FOR I:=1 TO LEN(FILENAME$) DO
  23. 9220 POKE 827+I,ORD(FILENAME$(I))
  24. 9230 ENDFOR I
  25. 9240 POKE 850,169 //   LDA
  26. 9250 POKE 851,DEVICE
  27. 9260 POKE 852,170 //   TAX
  28. 9270 POKE 853,160 //   LDY #$FF
  29. 9280 POKE 854,255
  30. 9290 POKE 855,32 //    JSR $FFBA
  31. 9300 POKE 856,186
  32. 9310 POKE 857,255
  33. 9320 POKE 858,169 //   LDA
  34. 9330 POKE 859,LEN(FILENAME$)
  35. 9340 POKE 860,162 //   LDX #$3C
  36. 9350 POKE 861,60
  37. 9360 POKE 862,160 //   LDY #$03
  38. 9370 POKE 863,3
  39. 9380 POKE 864,32 //    JSR $FFBD
  40. 9390 POKE 865,189
  41. 9400 POKE 866,255
  42. 9410 POKE 867,169 //   LDA #$00
  43. 9420 POKE 868,0
  44. 9430 POKE 869,162 //   LDX #$FF
  45. 9440 POKE 870,255
  46. 9450 POKE 871,160 //   LDY #$FF
  47. 9460 POKE 872,255
  48. 9470 POKE 873,32 //    JSR $FFD5
  49. 9480 POKE 874,213
  50. 9490 POKE 875,255
  51. 9500 POKE 876,169 //   LDA
  52. 9510 POKE 877,DEVICE
  53. 9520 POKE 878,32 //    JSR $FFC3
  54. 9530 POKE 879,195
  55. 9540 POKE 880,255
  56. 9550 POKE 881,96 //    RTS
  57. 9560 SYS 850
  58. 9570 ENDPROC OBJLOAD
  59.